home *** CD-ROM | disk | FTP | other *** search
/ JuniorNet 1.1 / juniornet.bin / SETUP / CDcontent / ZI / ZIPL / ZIPL002x1.dcr / code_2_MouseDown Message Behavior.ls < prev    next >
Encoding:
Text File  |  1999-02-21  |  350 b   |  13 lines
  1. property pActivity, pMessage, pMouseFlag
  2.  
  3. on getPropertyDescriptionList
  4.   myList = [:]
  5.   setaProp(myList, #pActivity, [#comment: "Activity Code:", #format: #string, #default: "XXXX"])
  6.   setaProp(myList, #pMessage, [#comment: "Message #:", #format: #integer, #default: 9999])
  7.   return myList
  8. end
  9.  
  10. on mouseDown me
  11.   SendActMsg(pActivity, pMessage)
  12. end
  13.